object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 448
  ClientWidth = 632
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  TextHeight = 15
  object DBGrid1: TDBGrid
    Left = 16
    Top = 80
    Width = 577
    Height = 337
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'Segoe UI'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 16
    Top = 8
    Width = 97
    Height = 25
    Caption = 'connect'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 136
    Top = 8
    Width = 89
    Height = 25
    Caption = 'disconn'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 256
    Top = 8
    Width = 97
    Height = 26
    Caption = 'open cd1'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 392
    Top = 8
    Width = 97
    Height = 25
    Caption = 'save cd1'
    TabOrder = 4
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 518
    Top = 8
    Width = 91
    Height = 25
    Caption = 'close cd1'
    TabOrder = 5
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 16
    Top = 41
    Width = 97
    Height = 25
    Caption = 'Call Func1'
    TabOrder = 6
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 136
    Top = 41
    Width = 89
    Height = 25
    Caption = 'Call Func2'
    TabOrder = 7
    OnClick = Button7Click
  end
  object SQLConnection1: TSQLConnection
    DriverName = 'DataSnap'
    LoginPrompt = False
    Params.Strings = (
      'DriverUnit=Data.DBXDataSnap'
      'HostName=localhost'
      'Port=211'
      'CommunicationProtocol=tcp/ip'
      'DatasnapContext=datasnap/'
      
        'DriverAssemblyLoader=Borland.Data.TDBXClientDriverLoader,Borland' +
        '.Data.DbxClientDriver,Version=24.0.0.0,Culture=neutral,PublicKey' +
        'Token=91d62ebb5b0d1b1b'
      'Filters={}')
    Left = 72
    Top = 80
    UniqueId = '{ADFD6AAB-A5D2-49AF-879D-F192BF24E687}'
  end
  object DSProviderConnection1: TDSProviderConnection
    ServerClassName = 'TServerMethods1'
    SQLConnection = SQLConnection1
    Left = 160
    Top = 176
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = DSProviderConnection1
    Left = 288
    Top = 208
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 296
    Top = 144
  end
end
